home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / smoke.pov < prev    next >
Encoding:
Text File  |  1992-07-15  |  1.8 KB  |  73 lines
  1. // Persistence Of Vision Raytracer version 1.0 sample file.
  2. // Dark, smokey glass ball 
  3. // Quick example of how to make a "black" filter.
  4. // Just use dark shades of gray.
  5.  
  6. #declare Gray90 = color red .9 green .9 blue .9
  7. #declare Gray80 = color red .8 green .8 blue .8
  8. #declare Gray70 = color red .7 green .7 blue .7
  9. #declare Gray60 = color red .6 green .6 blue .6
  10. #declare Gray40 = color red .4 green .4 blue .4
  11. #declare Gray30 = color red .3 green .3 blue .3
  12.  
  13. #declare White = color red 1 green 1 blue 1
  14. #declare Blue = color blue 1
  15. #declare Red = color red 1
  16. #declare Yellow = color red 1 green 1
  17.  
  18. #declare Black_Smoke =
  19.     texture {
  20.       bozo
  21.       turbulence 0.2
  22.       color_map {
  23.         [ 0 .1  color Gray80 alpha 1 color Gray60 alpha .7 ]
  24.         [ .1 1  color Gray60 alpha .7  color Gray30 alpha 0.6 ]
  25.         }
  26.      }
  27. #declare Dark_Smoke = 
  28.    texture {
  29.       bozo
  30.       turbulence 0.2
  31.       color_map {
  32.         [ 0 .1  color Gray90 alpha 1 color Gray70 alpha .8 ]
  33.         [ .1 1  color Gray70 alpha .8  color Gray40 alpha 0.7 ]
  34.         }
  35.    }
  36.  
  37. camera {
  38.    location <0.0  3.0  -10.0>
  39.    direction <0.0 0.0  1.0>
  40.    up  <0.0  1.0  0.0>
  41.    right <1.33333 0.0 0.0>
  42.    look_at <0 2 0>
  43. }
  44.  
  45. // Light source
  46. object {
  47.    light_source {
  48.    <10 20 -30>
  49.    color White
  50.    }
  51. }
  52.  
  53. // Leopard Sky  
  54. object {
  55.    sphere { <0 0 0> 100 }
  56.    texture {
  57.       leopard
  58.       color_map { [ 0 1 color Yellow color Red ] }
  59.       ambient .8 // make it "glow"
  60.       diffuse 0
  61.       scale <5 5 5>
  62.    }
  63. }
  64. // Black Glass Sphere  
  65. object {
  66.    sphere { <0 3 0> 3 }
  67.    // Try with no refraction or specular 
  68.    texture { Dark_Smoke specular .9 roughness .001 ior 1.51 refraction 1 }
  69. } 
  70. // Bright and Hokey checkered floor
  71. object { plane { <0 1 0> 0 } texture { checker color White color Blue diffuse .8 scale <5 5 5>}  }
  72.  
  73.